10 PRINT "EXAMPLE 1.10-1  FORCES ON DRDPLET IN CONICAL TUBE": PRINT
20 CLEAR : DEF FNF (DAL) = 2! * PI * SIGMA * ((R + X * TAN(DAL)) * COS(TH + DAL) - R * COS(TH - DAL))
30 DEFINT I: READ R, X, TH, PI, SIGMA: DATA  .003, .015, 25., 3.1416, .05
40 PRINT : PRINT "R,X,TH,PI,SIGMA="; R; X; TH; PI; SIGMA
50 CONV = PI / 180!: TH = TH * CONV: PRINT " AL, DEG    FORCE,N"
60 FOR I = 0 TO 12: AL = I * CONV
70 PRINT "   "; I; : PRINT USING "    ##.######  "; FNF(AL)
90 NEXT I